home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / WRITESM.MOD < prev   
Text File  |  1989-01-18  |  604b  |  33 lines
  1. MODULE WriteSm;
  2.  
  3. FROM InOut IMPORT WriteLn, WriteString;
  4.  
  5. BEGIN
  6.  
  7.    WriteString("This line will be displayed on the monitor.");
  8.    WriteLn;
  9.    WriteString('This line will be displayed too.');
  10.    WriteLn;
  11.    WriteString("This will all be ");
  12.    WriteString('on one line.');
  13.    WriteLn;
  14.    WriteString('She said, "I ');
  15.    WriteString("don't ");
  16.    WriteString('like dogs."');
  17.    WriteLn;
  18.  
  19. END WriteSm.
  20.  
  21.  
  22.  
  23.  
  24. (* Result of execution
  25.  
  26. This line will be displayed on the monitor.
  27. This line will be displayed too.
  28. This will all be on one line.
  29. She said, "I don't like dogs."
  30.  
  31. *)
  32.  
  33.